home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / batchut / ebl407px.zip / BATDOC.BAT < prev    next >
DOS Batch File  |  1992-01-15  |  21KB  |  520 lines
  1. bat * Loading HELP and DOCUMENTATION .....
  2.  
  3. *           Written 10/5/83 through 01/15/92
  4. *   (c) Copyright 1983 to 1992 by Seaware Corp. all rights reserved.
  5. *    This batch file REQUIRES EBL PLUS for proper execution!
  6.  
  7.          **** NOTE! NOTE! NOTE! NOTE! ****
  8.  RAM    |* <-----Change 'RAM' to 'BIOS' if PC isn't 100% IBM Compatible!
  9.  
  10.  if %G = .goto. then %G = | goto -%F
  11.  else %F =
  12.  else goto -line0
  13.  
  14.  
  15. -header * Routine prints general purpose header for help text
  16.     stack.purge            |*  remove any pre-typed keystrokes.
  17.     %n = %i $ 1 ( %i # - 2 ) & . & ( %i $ ( %i # - 1 ) 2 ) |* extract section # from page #
  18.     color( white on black )
  19.     cls
  20.     color( white on cyan  )
  21.     window( 1, 1, 79, 3, Combo)
  22.     begtype
  23.  \%H                     Page \%n
  24.  
  25. \07    Press:  PGDN for next page,   PGUP for prev page,  HOME for main menu.
  26. end
  27.     color( white on black)
  28.     colorchar ~ as color(yellow on black)
  29.     window( 1, 5, 79, 25, Combo)
  30.     return
  31.  
  32. -scroll * Routine accepts key for scrolling help text
  33.     %e = 0
  34.     inkey %k
  35.     if %k = KEY("Ctrl-C") then goto -opt0
  36.     if %k = KEY(Esc)  %i = 0      | goto -line0
  37.     if %k = KEY(Home) %i = 0      | goto -line0
  38.     if %k = KEY(Pgup) %i = %i - 1 | cls | %F = line%i | goto -%F
  39.     if %k = KEY(Pgdn) %i = %i + 1 | cls | %F = line%i | goto -%F
  40.     goto -scroll |* ignore any other key.
  41.  
  42. -line1404
  43. -line99
  44. -line0
  45.     %e = 0
  46.     color white on black
  47.     cls begtype
  48. \1F╔════════════════ BATDOC ═══════════════════╗\07       \17┌─────────────────────────┐\07
  49. \1F║     Menu driven HELP and DOCUMENTATION.   ║\07       \17│ User supported software │\07
  50. \1F╙───────────────────────────────────────────╜\07       \17│      by        │\07
  51.                              \17│              │\07
  52.     \4fGENERAL:\07                       \17│ Seaware Corp.        │\07
  53. \0e 1.        Introduction and how to use this Help.   \07   \17│ P.O. Box 1656        │\07
  54. \0e 2.        The user supported concept & ASP.         \07   \17│ Delray Beach, FL 33444    │\07
  55. \0e 3.        BAT-BBS information. On-line users forum.\07   \17│ 407/738-1712        │\07
  56. \0e 4.        What EBL is... an introduction!         \07   \17│             │\07
  57. \0e 5.        EBL PLUS: The inside story!          \07   \17│ Order your registered    │\07
  58.                              \17│ copy for $79 + $3 s/h   │\07
  59.      \4fThe EBL PLUS Language\07               \17│ from us directly or our │\07
  60. \0e 6.        Showing things on the display.         \07   \17│ order line 800/634-8188 │\07
  61. \0e 7.        Reading data from users.             \07   \17│ (MC/Visa welcome)    │\07
  62. \0e 8.        Controlling program flow             \07   \17│             │\07
  63. \0e 9.        Using the keyboard stack.             \07   \17│ Please copy and share    │\07
  64. \0e 10.     Sensing program's results.               \07   \17│ BAT.COM, BATDOC.BAT,    │\07
  65. \0e 11.     Assignment statements.             \07   \17│ and BATDEMO.BAT for    │\07
  66. \0e 12.     Debugging aids.                 \07   \17│ non-commercial uses    │\07
  67. \0e 13.     Extended functions:              \07   \17│ only.            │\07
  68.        \0eConsole\07 \0eString\07 \0eSystem\07 \0eControl\07 \0eAdd-on\07       \17└─────────────────────────┘\07
  69. \0e 14.     Additional information.             \07
  70. \0e X.        eXit.                     \07
  71.  
  72.     Select the starting topic and press ─┘
  73. END
  74.  
  75. -entry0
  76.     %o =
  77.     if left(%F,3) = "opt" then field( ( ( %F $ 4 ) + 1 ) )
  78.     %A = Select( color( yellow ), color( black on white ))
  79.     if %R > 20 then goto -entry0
  80.     if %A = Enter then %F = "opt" & %R | goto -%F
  81.     if %A = ESC   then goto -opt0
  82.     if Length(%A) > 1 then beep
  83.     goto -entry0
  84.  
  85. -opt20    ********** Display final EXIT window ***********
  86. -opt0    color yellow on black  |* Setup the window contents
  87.     type left(field(1, color(black on white)),51) |* change b/w colored bar to yellow
  88.     color white on blue
  89.     window( 18, 13, 48, 20)
  90.     type "Ready to leave on-line help!"
  91.     color Cyan on blue
  92.     type "Make selection & press ─┘"
  93.     type
  94.     colorchar . as color( yellow on blue)
  95.     type ". Exit . . Demo . .Return."
  96.     colorchar
  97.     %A = "" | %F = ""
  98.         ** Now actually do the bouncing bar menu **
  99. -End1    type " Exit to DOS               " | If %A = Enter then exit
  100. -Endit    %A = select( color( yellow on blue), color( black on white ), Arrow)
  101.     if %A = Esc then goto -line0
  102.     goto -End%R
  103. -End2    type " Demonstrate other features" | If %A = Enter then stack "BATDEMO" |exit
  104.          else goto -endit
  105. -End3    type " Return to on-line help    " | If %A = Enter then goto -line0
  106.          else goto -endit
  107.  
  108. -line100 *************** Begin various chapters to show ****************
  109. -opt1    %h = INTRODUCTION | %i = 100 | call -header
  110.     begtype
  111.     This program will provide you with help information on the use of
  112. the EXTENDED BATCH LANGUAGE PLUS.  It is designed to allow for
  113. easy access and retrieval of information that would be harder to find
  114. by more conventional means.
  115.  
  116.     The information is broken up into multiple sections.  Each section
  117. may have several pages.  To access each page in order, just keep
  118. pressing the PGDN key.    At the top of your screen is the name of the
  119. section which you are in and the page number.
  120.  
  121. ~Note:~
  122.  
  123.     If you wish to directly enter another section now, press the ~HOME~
  124. key to return to the main menu, enter the proper ~section number~ and
  125. press the ~─┘~ key.
  126.  
  127. end
  128.      goto -scroll
  129. -line101 call -header | begtype
  130. While in any of these sections, there are just three keys needed:
  131.  
  132. PGDN -    This key will advance to the next page of any section. If
  133.     there are no more pages in the section, then it will advance
  134.     to the next section.
  135.  
  136. PGUP -    This key will back up to a previous page within a section.
  137.     If there are no more previous pages within a section, it
  138.     will backup to the previous section.
  139.  
  140. HOME or ESC - Either of these keys will return directly to the
  141.     main menu. From the menu, any section can be looked at
  142.     directly by entering the section number and pressing ─┘.
  143. end
  144.     goto -scroll
  145. -line199 %i = 102
  146. -line102 call -header | begtype
  147.   There are several sections where you will be given questions and answers.
  148. If you would like to peek and see answer without specifically answering it,
  149. you can press the space bar to reveal the answer letter by letter.
  150.  
  151.     One interesting facet you should know while using this on-line help
  152. and documentation is that you are using the EXTENDED BATCH LANGUAGE
  153. program to display and control these menus.
  154.  
  155.     Never before has a batch language been so powerful on the IBM
  156. personal computer as to be able to provide a facility like this.  In
  157. the following pages of description, we hope that you will see, as we
  158. did, that this program has extraordinary capability which does much
  159. more than just expand the capability of DOS.  In fact, it gives new
  160. power to your system by providing capabilities never before possible.
  161. end
  162.     goto -scroll
  163. -opt2
  164. -line103 %i = 200
  165. -line200 %H = "The User Supported Concept & ASP" | call -header | begtype
  166.  ╓─                                     ─╖
  167.  ║    The license fee for Extended Batch Language-Plus is $79 + $3 s/h      ║
  168.  ║                                      ║
  169.  ║ You are encouraged to copy and share BAT.COM, BATDOC.BAT, and      ║
  170.  ║ BATDEMO.BAT for non-commercial purposes only, however you must not      ║
  171.  ║ modify any of these files. You may use this software for evaluation      ║
  172.  ║ purposes only for a period not to exceed thirty (30) days.          ║
  173.  ║                                      ║
  174.  ║ In appreciation of your support, you will be provided with printed      ║
  175.  ║ documentation, examples, and samples of add-ons to the EBL language      ║
  176.  ║ (including source code).  All registered users can also access the      ║
  177.  ║ BAT-BBS, a hot-line for assistance, tips, and updates.          ║
  178.  ║                                      ║
  179.  ╙─     (c) Copyright 1982 through 1992 by Seaware Corp.         ─╜
  180.               All rights reserved.
  181.   Seaware Corp.                            407/738-1712
  182.   Post Office Box 1656                           800/634-8188
  183.   Delray Beach, FL 33444
  184. end
  185.     goto -scroll
  186. -line201 call -header | begtype
  187. When you register EBL-PLUS, you will receive:
  188.  ■ A detailed users guide.  This hardcopy manual has about 250 pages of
  189.                 descriptions, examples, useful utilities, and
  190.                 tips on this program's use.
  191.  
  192.  ■ The EBL-PLUS Diskette    Containing the latest program version,
  193.                 useful utilities, help files, and more examples.
  194.  
  195.  ■ Executive Menu Facility  A batch file that makes other EBL programs,
  196.                 to get started using EBL with zero effort.
  197.  
  198.  ■ 6 months of free su